home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 May / Macworld (1999-05).dmg / Shareware World / Graphics / Geo3D 1.2.1 / Sample Scripts / Animation next >
Text File  |  1998-12-17  |  237b  |  12 lines
  1. tell application "Geo3D"
  2.     activate
  3.     make new document
  4.     set x to import animation from file ":Sample Scripts:Demo.geo"
  5.     if x > 0 then -- 0: error
  6.         play
  7.         repeat with x from 1 to x -- slower
  8.             go to frame x
  9.         end repeat
  10.     end if
  11. end tell
  12.